home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_174_Net Worth font.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  95 lines
  1. ItemType: WIND
  2. Rect: 94,237,544,361
  3. AutoSize: FALSE
  4. Style: Windoid
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. HasCloseBox: FALSE
  8. HasGrowBox: FALSE
  9. MinSize: 440,80
  10. MaxSize: 465,130
  11. Name: Net Worth font
  12. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then ┬  ┬else if objValue="Close" then ┬  ┬else if objValue="Suspend" then ┬  ┬else if objValue="Resume" then ┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="ZoomBox" then ┬  ┬else if objValue="GrowBox" then ┬  ┬else if objValue="TitleBar" then ┬  ┬end if┬┬--end windowEvent
  13. Params: i7_Text┬i7_SelectionText┬i8_SelectionText┬i9_SelectionText┬i0_TopLeft
  14.  
  15. ItemType: PUSH
  16. Rect: 366,47,438,67
  17. Name: OK
  18. DefaultItem: TRUE
  19. AutoClose: TRUE
  20.  
  21. ItemType: PUSH
  22. Rect: 362,10,442,30
  23. Name: cancel
  24. CancelItem: TRUE
  25. AutoClose: TRUE
  26. Script: restoreFonts
  27.  
  28. ItemType: LBL
  29. Rect: 5,32,59,48
  30. Visible: FALSE
  31. Text: Header:
  32.  
  33. ItemType: LBL
  34. Rect: 30,14,63,30
  35. TextStyle: Underline
  36. Text: Font
  37.  
  38. ItemType: LBL
  39. Rect: 182,14,213,30
  40. TextStyle: Underline
  41. Text: Size
  42.  
  43. ItemType: LBL
  44. Rect: 250,14,287,30
  45. TextStyle: Underline
  46. Text: Style
  47.  
  48. ItemType: POP
  49. Rect: 22,34,170,51
  50. TextFont: Geneva
  51. TextSize: 10
  52. AutoSize: FALSE
  53. Name: FontH
  54. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"FontH","Value")┬set the textFont of fld "display" to it┬--end mouseUp
  55.  
  56. ItemType: POP
  57. Rect: 181,34,235,51
  58. TextFont: Geneva
  59. TextSize: 10
  60. AutoSize: FALSE
  61. Name: sizeH
  62. Text: 9┬10┬12┬14┬18┬20┬24
  63. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"SizeH","Value")┬set the textSize of fld "display" to it┬--end mouseUp
  64.  
  65. ItemType: POP
  66. Rect: 246,34,337,51
  67. TextFont: Geneva
  68. TextSize: 10
  69. AutoSize: FALSE
  70. Name: styleH
  71. Text: plain┬bold┬italic┬bold,italic
  72. Script: get wsGet(wdID,"styleH","Value")┬set the textstyle of fld "display" to it
  73.  
  74. ItemType: LINE
  75. Rect: 349,0,352,80
  76. PenSize: 3,1
  77.  
  78. ItemType: TEXT
  79. Rect: 7,84,433,127
  80. TextFont: Geneva
  81. TextSize: 9
  82. AutoSize: FALSE
  83. Name: Instructions
  84. Text: Choose the font, size and style for the Net Worth display from the above pop-up menus (initially, the previous settings are shown.) Click ╥OK╙ to retain those changes or ╥cancel╙ to revert to the previous settings.
  85.  
  86. ItemType: LINE
  87. Rect: 1,80,451,82
  88. PenSize: 1,2
  89.  
  90. ItemType: TEXT
  91. Rect: 11,60,340,72
  92. TextFont: Geneva
  93. TextSize: 9
  94. Name: suggestion
  95. Text: (use a monospaced font such as Courier or Monaco to preserve columns)